'This program sets the Model 2001 to ACV auto range and then takes

' 25 readings.

'DEC  3/92

DIM k2001data AS STRING * 80                                 'Dim string

CALL Initialize(21, 0)                                       'system controller

'--- Setup 2001 measurement mode

   CLS

   CALL SETOUTPUTEOS(10, 0)

   CALL SETINPUTEOS(10)

   CALL SEND(16, "*CLS", Gpib.status%)                       'Clear

   CALL SEND(16, ":SENS:VOLT:AC:RANG:AUTO 1", Gpib.status%)  'ACV auto range

   CALL SEND(16, ":SENS:FUNC 'VOLT:AC'", Gpib.status%)       'ACV function

   '--- Read value(s) from 2001

   FOR I = 1 TO 25

     CALL SEND(16, ":FETCH?", Gpib.status%)               'query trigger rdg

     CALL Enter(k2001data$, Gpib.len%, 16, Gpib.status%)  'address to talk

     PRINT k2001data1$                                    'display reading

   NEXT I

END